home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / zebu v3.3.3 (LALR parser) / zebu-mg-domain.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  2.7 KB  |  101 lines  |  [TEXT/ttxt]
  1. ;;; This file was generated by Zebu (Version 3.3.3)
  2.  
  3. (IN-PACKAGE "ZEBU")
  4. (REQUIRE "zebu-package")
  5. (USE-PACKAGE "ZEBU")
  6.  
  7. (DEFUN MORE-RHS1
  8.        (DUMMY RHS1 MORE-RHS)
  9.        (DECLARE (IGNORE DUMMY))
  10.        (CONS RHS1 MORE-RHS))
  11.  
  12. (DEFUN CONSTITUENT3
  13.        (IDENTIFIER DUMMY STRING)
  14.        (DECLARE (IGNORE DUMMY))
  15.        (MAKE-KLEENE* :-CONSTITUENT
  16.                      IDENTIFIER
  17.                      :-SEPARATOR
  18.                      STRING))
  19.  
  20. (DEFUN CONSTITUENT4
  21.        (IDENTIFIER DUMMY STRING)
  22.        (DECLARE (IGNORE DUMMY))
  23.        (MAKE-KLEENE+ :-CONSTITUENT
  24.                      IDENTIFIER
  25.                      :-SEPARATOR
  26.                      STRING))
  27.  
  28. (DEFUN RHS15
  29.        (CONSTITUENT-LIST)
  30.        (MAKE-PRODUCTION-RHS :-SYNTAX CONSTITUENT-LIST))
  31.  
  32. (DEFUN RHS16
  33.        (CONSTITUENT-LIST DUMMY FEAT-TERM DUMMY1)
  34.        (DECLARE (IGNORE DUMMY1 DUMMY))
  35.        (MAKE-PRODUCTION-RHS :-SYNTAX
  36.                             CONSTITUENT-LIST
  37.                             :-SEMANTICS
  38.                             FEAT-TERM))
  39.  
  40. (DEFUN ZB-RULE7
  41.        (NON-TERMINAL DUMMY RHS DUMMY1)
  42.        (DECLARE (IGNORE DUMMY1 DUMMY))
  43.        (MAKE-ZB-RULE :-NAME NON-TERMINAL :-PRODUCTIONS RHS))
  44.  
  45. (DEFUN LABEL-VALUE-PAIR8
  46.        (DUMMY IDENTIFIER FEAT-TERM DUMMY1)
  47.        (DECLARE (IGNORE DUMMY1 DUMMY))
  48.        (MAKE-LABEL-VALUE-PAIR :-LABEL IDENTIFIER :-VALUE FEAT-TERM))
  49.  
  50. (DEFUN LABEL-VALUE-PAIR9
  51.        (DUMMY IDENTIFIER DUMMY1)
  52.        (DECLARE (IGNORE DUMMY1 DUMMY))
  53.        (MAKE-LABEL-VALUE-PAIR :-LABEL IDENTIFIER))
  54.  
  55. (DEFUN FEAT-TERM10
  56.        (IDENTIFIER DUMMY)
  57.        (DECLARE (IGNORE DUMMY))
  58.        (INTERN (CONCATENATE 'STRING
  59.                             (STRING IDENTIFIER)
  60.                             "*")))
  61.  
  62. (DEFUN FEAT-TERM11
  63.        (IDENTIFIER DUMMY)
  64.        (DECLARE (IGNORE DUMMY))
  65.        (INTERN (CONCATENATE 'STRING
  66.                             (STRING IDENTIFIER)
  67.                             "+")))
  68.  
  69. (DEFUN FEAT-TERM12
  70.        (CONJ)
  71.        (MAKE-FEAT-TERM :-SLOTS CONJ))
  72.  
  73. (DEFUN CONJ13
  74.        (DUMMY LABEL-VALUE-PAIRS DUMMY1)
  75.        (DECLARE (IGNORE DUMMY1 DUMMY))
  76.        LABEL-VALUE-PAIRS)
  77.  
  78. (DEFUN TYPED-CONJ14
  79.        (IDENTIFIER DUMMY CONJ)
  80.        (DECLARE (IGNORE DUMMY))
  81.        (MAKE-FEAT-TERM :-SLOTS CONJ :-TYPE IDENTIFIER))
  82.  
  83. (DEFUN PRINT-FUNCTION15
  84.        (DUMMY DUMMY1 IDENTIFIER DUMMY2)
  85.        (DECLARE (IGNORE DUMMY2 DUMMY1 DUMMY))
  86.        IDENTIFIER)
  87.  
  88. (DEFUN DEF-TYPE16
  89.        (IDENTIFIER DUMMY
  90.                    TYPED-CONJ
  91.                    PRINT-FUNCTION
  92.                    DUMMY1)
  93.        (DECLARE (IGNORE DUMMY1 DUMMY))
  94.        (CONS-DOMAIN-TYPE IDENTIFIER TYPED-CONJ PRINT-FUNCTION))
  95.  
  96. (DEFUN DEF-TYPE17
  97.        (IDENTIFIER DUMMY CONJ PRINT-FUNCTION DUMMY1)
  98.        (DECLARE (IGNORE DUMMY1 DUMMY))
  99.        (CONS-DOMAIN-TYPE IDENTIFIER CONJ PRINT-FUNCTION))
  100.  
  101.